#!/usr/bin/perl -w

#  FILE:   controlNT.pl
#  AUTHOR: JOSE A. ESQUIVEL
#  DATE:   07/12/2001
#
#  DESCRIPTION: Muestra la barra de herramientas para hacer las antoaciones

#inicializar:
require ("init.pl");
require ("dbData.pl");
require ("dbNotes.pl");
require ("dbDes.pl");

#imprimir cabecera
&print_header;

#procesar datos de entrada
%input = &parse_input;


$dbName        = $input{b};
$idTopic       = $input{t};
$idStructure   = $input{s}; 
$idDescription = $input{d};

#Se obtienen path de imagenes
($dbLenguaje, $IMG) = &get_language($dbName);

#Se obtienen los datos del tema en cuestion
if ($idStructure > 0)
{
    %dTopic = &get_data($dbName, "Struct", "idTopic", $idTopic);
}
else
{
    %dTopic = &get_data($dbName, "Topic", "idTopic", $idTopic);
}

#Se obtiene el nombre del tema en cuestion
$nameTopic = $dTopic{'nameTopic'.1};
#Se obtiene el URL del tema en cuestion
$URL = $dTopic{'URL'.1};
#Se obtiene el path de los frames a mostrar
$path = &get_path($URL);

$add_notes = $path."add-notes.pl?b=$dbName&s=$idStructure&t=$idTopic&d=$idDescription";

%text = &get_data($dbLenguaje, "MyForm", "name", "\'controlNT.pl\'");

print <<EOF3

<script language="Javascript">
<!--
    
    function Mostrar_Nota(url, nombre)
    {
	kiosk = window.open(url, nombre, 'resizable=no, scrollbars=yes, status=0, width=300, height=320');
	return true;
    }  
// -->
</script>
EOF3
    ;

print <<EOF1;

<HTML> 
     <HEAD></HEAD>
     <BODY BGCOLOR="#FFFFFF" BACKGROUND="../$IMG/kc.gif" >
     <TABLE WIDTH=100%>
                <TD ALIGN="CENTER"> <A HREF="$add_notes"> <IMG SRC=\"../$IMG/add-note.gif\"  BORDER=0> 
     </TABLE>
EOF1
    ;

#traer anotaciones de la descripcion
%notas = &traer_notas($dbName, $idDescription);




if ($notas{numRows} > 0)
{
   print "<p>";
   print "<TABLE>";
    for ($i=1; $i<=$notas{numRows};$i++)
    {
	$nombreW  = "nota" . $notas{idNote.$i};
	$titulo   = "$notas{'nAuthor'.$i}-$notas{'dayN'.$i}"; 
	$url_nota = $path."note.pl?b=$dbName&s=$idStructure&t=$idTopic&d=$idDescription&n=$notas{idNote.$i}";
	$votos    = "[ $notas{'favour'.$i} -  $notas{'against'.$i} ]";

print <<EOF11
	<TR><TD><IMG SRC=\"../$IMG/note.gif\" BORDER=0>&nbsp;
                <A HREF="#" onClick="Mostrar_Nota('$url_nota','$nombreW')"> 
                <b>$titulo</b></A>&nbsp;<TD><FONT COLOR="red">$votos</FONT></TD>
EOF11
    ;
    }
   print "</TABLE>";
}

$txt = 'anota.htm';
&print_help($dbName, $txt, 'helpError');

%activeVersion  = &get_activeVersion ($dbName, $idDescription);

if ($activeVersion{idVersion} >  0)
{
    $URLV = $activeVersion{URLV};
    $URLA = $path . "vote-version.pl?b=$dbName&s=$idStructure&t=$idTopic&d=$idDescription";
print <<EOF133
    <P><HR>
    <TABLE WIDTH=100%>
           <TR><TD><A HREF="$URLV" TARGET="descriptions"><IMG SRC=\"../$IMG/version.gif\" BORDER=0>
	           <B> $text{'title'.1} $activeVersion{idVersion}</B></A>
    </TABLE><P>
    <TABLE BORDER=1 WIDTH=100%>
	   <TR><TD>$activeVersion{note}
    </TABLE><BR>
    <TABLE WIDTH=100%><TR>
	   <TR><TD ALIGN=\"CENTER\"><A HREF="$URLA"><IMG SRC="../$IMG/vote-version.gif" BORDER=0></A>
    </TABLE>
EOF133
    ;
    $txt = 'versiona.htm';
    &print_help($dbName, $txt, 'helpError');
}
print "</BODY></HTML>";

     
